home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / rxapfd.zip / TP1.CMD < prev    next >
OS/2 REXX Batch file  |  1994-02-01  |  858b  |  38 lines
  1. /* rexx */
  2.  
  3. parse arg luname .
  4.  
  5. convtype = 'm'
  6. mode = '#INTER'
  7. synclvl = 'n'
  8. retctl = 'a'
  9. convstyle = 'a'
  10. security = 'none'
  11. sendtype = 'n'
  12. rswd = 'y'
  13.  
  14. if rxfuncquery('rxappc') then
  15.   call rxfuncadd 'rxappc','rxappcfd','rxappcfd'
  16.  
  17. appcrc = rxappc('tp_started',,'TP1','tpid')
  18.  
  19. appcrc = rxappc('allocate',convtype,tpid,synclvl,retctl,convstyle,luname,
  20.                ,mode,'TP2',security,'inf.')
  21. convid = inf.1
  22.  
  23. appcrc = rxappc('send_data',convtype,tpid,convid,sendtype,
  24.                ,'Some test data','inf.')
  25.  
  26. appcrc = rxappc('receive_and_wait',convtype,tpid,convid,rswd,500,'inf.')
  27. do while appcrc = 0
  28.   if inf.2 = 'D' | inf.2 = 'DC' then
  29.     say '>'inf.5'<'
  30.   appcrc = rxappc('receive_and_wait',convtype,tpid,convid,rswd,500,'inf.')
  31. end
  32. if appcrc = 9 then
  33.   say '>'inf.5'<'
  34.  
  35. appcrc = rxappc('tp_ended',tpid,'s')
  36.  
  37. exit
  38.